home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / dvips / texc.pro < prev    next >
Encoding:
Text File  |  1990-02-26  |  3.4 KB  |  48 lines
  1. %!
  2. /TeXDict 200 dict def TeXDict begin /bdf{bind def}def /@rigin{72 Resolution
  3. div dup neg scale translate}bdf /@letter{Resolution dup -10 mul @rigin}bdf
  4. /@landscape{[0 1 -1 0 0 0]concat Resolution dup @rigin}bdf /@a4{Resolution dup
  5. -10.6929133858 mul @rigin}bdf /@legal{Resolution dup -13 mul @rigin}bdf
  6. /@manualfeed{statusdict /manualfeed true put}bdf /@copies{/#copies exch def}
  7. bdf /@FontMatrix[1 0 0 -1 0 0]def /@FontBBox[0 0 0 0]def /dmystr(ZZf@@@)def
  8. /newname{dmystr cvn}bdf /df{/fontname exch def dmystr 2 fontname cvx(@@@@)cvs
  9. putinterval newname 7 dict def newname load begin /FontType 3 def /FontMatrix
  10. @FontMatrix def /FontBBox @FontBBox def /BitMaps 256 array def /BuildChar{
  11. CharBuilder}def /Encoding IdentityEncoding def end fontname{/foo setfont}2
  12. array copy cvx def fontname load 0 dmystr 6 string copy cvn cvx put}bdf /dfe{
  13. newname dup load definefont setfont}bdf /ch-image{ch-data 0 get}bdf /ch-width{
  14. ch-data 1 get}bdf /ch-height{ch-data 2 get}bdf /ch-xoff{ch-data 3 get}bdf
  15. /ch-yoff{ch-data 4 get}bdf /ch-dx{ch-data 5 get}bdf /CharBuilder{save 3 1 roll
  16. exch /BitMaps get exch get /ch-data exch def ch-data null ne{ch-dx 0 ch-xoff
  17. ch-yoff neg ch-xoff ch-width add ch-height ch-yoff sub setcachedevice ch-width
  18. ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-height ch-yoff sub .1 add]/id
  19. ch-image def /rw ch-width 7 add 8 idiv string def /rc 0 def /gp 0 def /cp 0
  20. def{rc 0 ne{rc 1 sub /rc exch def rw}{G}ifelse}imagemask}if restore}bdf /G{{
  21. id gp get /gp gp 1 add def dup 18 mod exch 18 idiv pl exch get exec}loop}bdf
  22. /adv{cp add /cp exch def}bdf /chg{rw cp id gp 4 index getinterval putinterval
  23. dup gp add /gp exch def adv}bdf /nd{/cp 0 def rw exit}bdf /lsh{rw cp 2 copy
  24. get dup 0 eq{pop 1}{dup 255 eq{pop 254}{dup dup add 255 and exch 1 and or}
  25. ifelse}ifelse put 1 adv}bdf /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq
  26. {pop 127}{dup 2 idiv exch 128 and or}ifelse}ifelse put 1 adv}bdf /clr{rw cp 2
  27. index string putinterval adv}bdf /set{rw cp fillstr 0 4 index getinterval
  28. putinterval adv}bdf /fillstr 18 string 0 1 17{2 copy 255 put pop}for def /pl[{
  29. adv 1 chg}bind{adv 1 chg nd}bind{1 add chg}bind{1 add chg nd}bind{adv lsh}
  30. bind{adv lsh nd}bind{adv rsh}bind{adv rsh nd}bind{1 add adv}bind{/rc exch def
  31. nd}bind{1 add set}bind{1 add clr}bind{adv 2 chg}bind{adv 2 chg nd}bind{pop nd}
  32. bind]def /dc{/ch-code exch def /ch-data exch def newname load /BitMaps get
  33. ch-code ch-data put}bdf /bop{gsave /SaveImage save def 0 0 moveto}bdf /eop{
  34. clear SaveImage restore showpage grestore}bdf /@start{/Resolution exch def
  35. /IdentityEncoding 256 array def 0 1 255{IdentityEncoding exch 1 string dup 0 3
  36. index put cvn put}for}bdf /p{show}bdf /RuleMatrix[1 0 0 -1 -.1 -.1]def
  37. /BlackDots 8 string def /v{gsave currentpoint translate false RuleMatrix{
  38. BlackDots}imagemask grestore}bdf /a{moveto}bdf /delta 0 def /tail{dup /delta
  39. exch def 0 rmoveto}bdf /b{exch show tail}bdf /c{show delta 4 sub tail}bdf /d{
  40. show delta 3 sub tail}bdf /e{show delta 2 sub tail}bdf /f{show delta 1 sub
  41. tail}bdf /g{show delta 0 rmoveto}bdf /h{show delta 1 add tail}bdf /i{show
  42. delta 2 add tail}bdf /j{show delta 3 add tail}bdf /k{show delta 4 add tail}
  43. bdf /l{show -4 0 rmoveto}bdf /m{show -3 0 rmoveto}bdf /n{show -2 0 rmoveto}
  44. bdf /o{show -1 0 rmoveto}bdf /q{show 1 0 rmoveto}bdf /r{show 2 0 rmoveto}bdf
  45. /s{show 3 0 rmoveto}bdf /t{show 4 0 rmoveto}bdf /w{0 rmoveto}bdf /x{0 exch
  46. rmoveto}bdf /y{3 2 roll show moveto}bdf /bos{/section save def}bdf /eos{clear
  47. section restore}bdf end
  48.